object fProcura_CEP: TfProcura_CEP
  Left = 293
  Top = 177
  Width = 444
  Height = 309
  BorderIcons = [biSystemMenu]
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 436
    Height = 282
    Align = alClient
    BevelOuter = bvLowered
    Color = 11189162
    TabOrder = 0
    object RxLabel1: TRxLabel
      Left = 8
      Top = 16
      Width = 252
      Height = 16
      Caption = 'Digite o Nome  que deseja localizar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 59
      Width = 417
      Height = 177
      TabStop = False
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'RUA'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NR'
          Visible = True
        end>
    end
    object EditProc: TEdit
      Left = 9
      Top = -100
      Width = 333
      Height = 21
      TabOrder = 0
    end
    object BtnProcurar: TBitBtn
      Left = 345
      Top = -74
      Width = 81
      Height = 25
      Caption = 'PROCURAR'
      TabOrder = 1
    end
    object EvDBFind1: TEvDBFind
      Left = 8
      Top = 37
      Width = 416
      Height = 21
      DataField = 'RUA'
      DataSource = DataSource1
      TabOrder = 3
    end
    object BtnCancel: TBitBtn
      Left = 223
      Top = 246
      Width = 86
      Height = 30
      Caption = '&Cancel'
      TabOrder = 4
      Kind = bkCancel
    end
    object BtnOk: TBitBtn
      Left = 126
      Top = 246
      Width = 86
      Height = 30
      Caption = '&OK'
      TabOrder = 5
      Kind = bkOK
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = ANSI_CHARSET
    Font.Color = clMenuText
    Font.Height = -12
    Font.Name = 'Comic Sans MS'
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = True
    FlatMenu = False
    AutoDetect = True
    Active = True
    Left = 320
    Top = 248
  end
  object DataSource1: TDataSource
    DataSet = proc_cep
    Left = 312
    Top = 196
  end
  object proc_cep: TSQLClientDataSet
    CommandText = 
      'select cp.RUA '#13#10'         , im.NR '#13#10'from IMOVEL_ALUGUEL im '#13#10'left' +
      ' outer join CEP cp on cp.COD_CEP = im.COD_ENDERECO '#13#10'where COD_I' +
      'NQUILINO = :pcod '#13#10'order by RUA '
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    DBConnection = DM.scSge
    Left = 276
    Top = 196
    object proc_cepRUA: TStringField
      FieldName = 'RUA'
      Size = 50
    end
    object proc_cepNR: TStringField
      FieldName = 'NR'
      Size = 5
    end
  end
end
